home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 60.zip / BS1 part 60 / Kick Pascal v2.10 d1.adf / INCLUDE / graphics / gfx.unit.h < prev    next >
Text File  |  1990-11-01  |  390b  |  26 lines
  1. {$if not def GRAPHICS_GFX_H}
  2. Const
  3.  GRAPHICS_GFX_H=0;
  4.  BITSET=$8000;
  5.  BITCLR=0;
  6. Type
  7. p_Rectangle=^Rectangle;
  8. Rectangle=Record
  9.  MinX,MinY,MaxX,MaxY:integer
  10. End;
  11. p_tPoint=^tPoint;
  12. tPoint=Record
  13.  x,y:integer
  14. End;
  15. PLANEPTR=^Ptr;
  16. p_BitMap=^BitMap;
  17. BitMap=Record
  18.  BytesPerRow,Rows:Word;
  19.  Flags,Depth:Byte;
  20.  pad:Word;
  21.  Planes:Array[0..7]of PLANEPTR
  22. End;
  23. Function RASSIZE(w,h:Long):Long;
  24. {$endif}
  25.  
  26.